home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #8 / CD 8 (Black) - 2001.iso / K-CS.dcr / 00411_Hilite 1, toggle 1.ls < prev    next >
Encoding:
Text File  |  2001-02-20  |  1.1 KB  |  35 lines
  1. property modified, ItemState
  2.  
  3. on new me
  4.   set the visible of sprite 91 to 0
  5.   set the visible of sprite the currentSpriteNum to 1
  6.   set the visible of sprite (the currentSpriteNum + 1) to 0
  7.   set the visible of sprite (the currentSpriteNum + 2) to ItemState
  8. end
  9.  
  10. on mouseEnter me
  11.   set the visible of sprite (the currentSpriteNum + 1) to 1
  12. end
  13.  
  14. on mouseLeave me
  15.   set the visible of sprite (the currentSpriteNum + 1) to 0
  16. end
  17.  
  18. on mouseDown
  19. end
  20.  
  21. on mouseUp
  22.   set the visible of sprite modified to 1
  23.   set Seen to the visible of sprite (the currentSpriteNum + 2)
  24.   set the visible of sprite (the currentSpriteNum + 2) to 1 - Seen
  25. end
  26.  
  27. on getBehaviorDescription
  28.   return "Hilite one field for description. Second field is intended for a toggling bitmap (checkboxes and such). The paramitra is 1 for default on, 0 for default off."
  29. end
  30.  
  31. on getPropertyDescriptionList
  32.   set p_list to [#ItemState: [#default: 0, #format: #integer, #comment: "Initial state", #range: [#min: 0, #max: 1]], #modified: [#default: 91, #format: #integer, #comment: "Initial state", #range: [#min: 1, #max: 120]]]
  33.   return p_list
  34. end
  35.